Search:

Dim SrNo As Boolean
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdPrint_Click()
Set Record = New ADODB.Recordset
Record.Open "SELECT...

Private Sub stock()
Set Record = New ADODB.Recordset
Record.Open "Select * from Stockin where ProductCode='" & TxtDesc.Text & "'", Connect, 1, 3
With Record
If .EOF = True And .BOF = True...

Option Explicit
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdPrint_Click()
modConnect.Connected
Set Record = New ADODB.Recordset
Record.Open "Select * from SalesInvoice where...

In my VB project when i Press Exit Button, VB6 is Crashed
Why Like this???

i am trying save data from a check box to database in access, i don't have any idea about code, how to proceed, can any one help me
Thanks in Advance

Private Sub cmdSave_Click()

Dim cnuser As New ADODB.connection
Dim rsuser As New ADODB.Recordset

If sempty(txtFulNa.Text) = True Then Exit Sub
If sempty(txtFan.Text) = True Then Exit Sub
If...

when i save a record to access through error
Run time error - Data Type Mismatch in criteria expression
and when i go to debug...it directs to ".Open sSQL, sConnection, adOpenKeyset,...

Private Sub cus()

Dim cnview As New ADODB.connection
Dim rsemployee As New ADODB.Recordset

Call connection(cnview, App.Path & "\Commissions.mdb", "endromida")
Call Recordset(rsemployee,...

32475As per your advise code edited, but error is attached

My Previous question was not resolved...still exist same. and this one new which i posted

yes Field is there in table

Function sus()

Dim cnview As New ADODB.connection
Dim rsemployee As New ADODB.Recordset

Call connection(cnview, App.Path & "\Commissions.mdb", "endromida")
Call Recordset(rsemployee, cnview,...

Please provide a sample of code like what i am trying to get.

Function Cant()

Dim cnview As New ADODB.connection
Dim rsview As New ADODB.Recordset
Call connection(cnview, App.Path & "\Commissions.mdb", "endromida")
Call Recordset(rsview, cnview,...

Option Explicit
Dim tr_no As String
Private rs As New ADODB.Recordset
Private ForeColors(0 To 2, 0 To 1) As Long
Private BackColors(0 To 2, 0 To 1) As Long
Private Sub Form_load()
...

With rsupdate
If .BOF = True And .EOF = True Then
.Fields!condi = txtText2.Text
.Update
End If
End With

or
With rsupdate
If .BOF =...

Private Sub lap()

Dim cnuser As New ADODB.connection
Dim rsupdate As New ADODB.Recordset
Dim reply As String

'Call connection(cnuser, App.Path & "\Medrar.mdb", "endromida")
...

Updated my previous post, Please need sugesstion.

Option Explicit

Dim cd As ADODB.connection
Dim rs As ADODB.Recordset

Dim rd As ADODB.connection
Dim cs As ADODB.Recordset

Dim fd As ADODB.connection
Dim Fs As ADODB.Recordset

Please verify attached txt file for reference.
Thank you very much in advance

Thanks alot, but record is not updating????
No Errors thrown

Check this Error Msg

Dim cnuser As New ADODB.connection
Dim rsupdate As New ADODB.Recordset
Dim reply As String

'Call connection(cnuser, App.Path & "\Medrar.mdb", "endromida")
Call connection(cnuser,...

Realy Wonderful, But in this code
http://www.dreamincode.net/forums/topic/34776-resize-form-controls-for-screen-size-vb6/
Got Run Time Error '438'

How to make Auto Re size Form to Screen with different resolutions?
Can any Body Suggest me.
Thnx in Advance