Some idea pls!!!

[crixie0411]

I'm on the process of developing a simple system in vb6 which has the capability of adding,deleting, retrieving and saving records..my database is access.. I've done with the 3 options except with saving.. I've already tried using this 2 way of coding:

1st one goes lke this:

On Error GoTo errhandler
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
"Source=" & App.Path & "\dbttm.mdb;Persist Security Info=False"

Set rsConn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset

If rsConn.State = adStateClosed Then
rsConn.CursorLocation = adUseClient
rsConn.Open strConn
End If

strSQL = "INSERT INTO tblttm (tnum, ctype, state, dreported, prior, tresolved, EOD, pdesc, ataken, notes, ename, uname, dept, petsa, eadd, lphone)"
strSQL = strSQL & " Values ("
strSQL = strSQL & "'" & Format(txttnum, "") & "',"
strSQL = strSQL & "'" & Format(UCase(cboctype)) & "',"
strSQL = strSQL & "'" & Format(UCase(cbostate)) & "',"
strSQL = strSQL & "'" & Format(txtdreport, "") & "',"
strSQL = strSQL & "'" & Format(UCase(cboprior)) & "',"
strSQL = strSQL & "'" & Format(txttresolve, "") & "',"
strSQL = strSQL & "'" & Format(UCase(cboEON)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtpdesc)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtaTaken)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtNotes)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtname)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtuname)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtdept)) & "',"
strSQL = strSQL & "'" & Format(txtpetsa, "") & "',"
strSQL = strSQL & "'" & Format(UCase(txteadd)) & "',"
strSQL = strSQL & "'" & Format(txtlphone, "") & "')"

rs.Open strSQL, rsConn, adOpenStatic, adLockBatchOptimistic, adCmdText
rsConn.Execute strSQL
MsgBox "Operation Succeeded..Record Saved!!..", vbInformation + vbOKOnly, Me.Caption
Exit Sub

errhandler:
If Err.Number = -2147467259 Then
MsgBox "Record Already Exists", vbExclamation + vbOKOnly, Me.Caption

Else
MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly + vbInformation, Me.Caption
End If
ERROR: SYNTAX ERROR IN SQL STATEMENT

the 2nd one goes lyk this:

Set rsConn = New ADODB.Connection
rsConn.Open strConn
Set rs = New ADODB.Recordset
rs.Open "tblttm", rsConn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!tnum = txttnum.Text
rs!ctype = cboctype.Text
rs!State = cbostate.Text
rs!dreported = txtdreport.Text
rs!prior = cboprior.Text
rs!tresolved = txttresolve.Text
rs!EOD = cboEON.Text
rs!pdesc = txtpdesc.Text
rs!ataken = txtaTaken.Text
rs!notes = txtNotes.Text
rs!ename = txtname.Text
rs!uname = txtuname.Text
rs!uname = txtuname.Text
rs!petsa = txtpetsa.Text
rs!eadd = txteadd.Text
rs!lphone = txtlphone.Text
rs.Update
rs.Close
MsgBox "Operation Succeeded..Record Saved!!..", vbInformation + vbOKOnly, Me.Caption

ERROR: TYPE MISMATCH


Ive already used the first one when I developed a simple phonebook application in vb6...& it works...


Pls...help me...I need some of ur suggestions that will help in this problem..tnx

[Hack]

First one

strSQL = "INSERT INTO tblttm (tnum, ctype, state, dreported, prior, tresolved, EOD, pdesc, ataken, notes, ename, uname, dept, petsa, eadd, lphone)"
strSQL = strSQL & " Values ("
strSQL = strSQL & "'" & Format(txttnum, "") & "',"
strSQL = strSQL & "'" & Format(UCase(cboctype)) & "',"
strSQL = strSQL & "'" & Format(UCase(cbostate)) & "',"
strSQL = strSQL & "'" & Format(txtdreport, "") & "',"
strSQL = strSQL & "'" & Format(UCase(cboprior)) & "',"
strSQL = strSQL & "'" & Format(txttresolve, "") & "',"
strSQL = strSQL & "'" & Format(UCase(cboEON)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtpdesc)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtaTaken)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtNotes)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtname)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtuname)) & "',"
strSQL = strSQL & "'" & Format(UCase(txtdept)) & "',"
strSQL = strSQL & "'" & Format(txtpetsa, "") & "',"
strSQL = strSQL & "'" & Format(UCase(txteadd)) & "',"
strSQL = strSQL & "'" & Format(txtlphone, "") & "')"
'add this line
Debug.Print strSQL

Post what is in the immediate window (after running this, click View/Immediate window.

Second one, on what line does the error occur?