Run-Time error when editing Database

[nkechifesie]

When I run this code to update my database

Set AdVehDecp = New ADODB.Connection
Set RsVehDecp = New ADODB.Recordset
AdVehDecp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\VEHICLE_TRACKER.mdb;"
AdVehDecp.Open
AdVehDecp.CursorLocation = adUseClient
RsVehDecp.Open "SELECT * FROM qryVehSearch;", AdVehDecp, adOpenDynamic, adLockPessimistic
VehNo = Text1(4).Text
            StrSql = "UPDATE tblVEHLIC SET dtmVLISS = '" & Text2(0).Text & "', dtmVLEXP = '" & Text2(1).Text & "'" _
                    & "WHERE txtVEHNO = " & VehNo & ";"
            AdVehDecp.Execute StrSql
            StrSql = "UPDATE tblHPERT SET dtmHPISS = '" & Text2(2).Text & "', dtmHPEXP = '" & Text2(3).Text & "'" _
                    & "WHERE txtVEHNO = " & RsVehDecp("txtVEHNO") & ";"
            AdVehDecp.Execute StrSql
            StrSql = "UPDATE tblRDWORTH SET dtmRWISS = '" & Text2(4).Text & "', dtmRWEXP = '" & Text2(5).Text & "'" _
                    & "WHERE txtVEHNO = " & RsVehDecp("txtVEHNO") & ";"
            AdVehDecp.Execute StrSql
            StrSql = "UPDATE tblINSCERT SET dtmICISS = '" & Text2(6).Text & "', dtmICEXP = '" & Text2(7).Text & "'" _
                    & "WHERE txtVEHNO = " & RsVehDecp("txtVEHNO") & ";"
            AdVehDecp.Execute StrSql
            StrSql = "UPDATE tblMBADVT SET dtmMAISS = '" & Text2(8).Text & "', dtmMAEXP = '" & Text2(9).Text & "'" _
                    & "WHERE txtVEHNO = " & RsVehDecp("txtVEHNO") & ";"
            AdVehDecp.Execute StrSql
            StrSql = "UPDATE tblHDUTY SET dtmHDISS = '" & Text2(10).Text & "', dtmHDEXP = '" & Text2(11).Text & "'" _
                    & "WHERE txtVEHNO = " & RsVehDecp("txtVEHNO") & ";"
            AdVehDecp.Execute StrSql
            RsVehDecp.Requery
            CheckDt
 

it gives me an error

RUN-TIME ERROR '-2147217904(8004 0E10)';
NO VALUE GIVEN FOR 1 OR MORE REQUIRED PARAMETER.

Pls which parameter does it require?

[willakawill]

What of if it is Date?

If it is a date you should get your ass kicked for calling it VehNo :)
A data should be like this:

& "WHERE txtVEHNO = #" & VehNo & "#;"

[nkechifesie]

If it is a date you should get your ass kicked for calling it VehNo :)
A data should be like this:

& "WHERE txtVEHNO = #" & VehNo & "#;"

Now that was funny. But well, you wont be able to kick it because I was not asking for that particular code. I have already solved the issue for that one. Sorry I didnt say so, I travelled and lost track. I was asking for date because I was having a new issue with one that had to do with dates. But its still giving the problem after I changed it to what you asked me too. I would post a new topic on that.
Thank you