Originally Posted by iehjsucker
Private Sub MainFormLoad(sender As System.Object, e As System.EventArgs)
mycon.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;Data source=dbchat.mdb;persist security info=false"
mycon.Open()
End Sub
Private Function x()
Dim x1 As New System.Data.OleDb.OleDbCommand("select * from Members",mycon)
x1.ExecuteNonQuery()
End Function
Private Function y()
Dim x1 As New System.Data.OleDb.OleDbCommand("select * from Members",mycon)
x1.ExecuteNonQuery()
End Function
Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
Call x
Call y
End Sub
Try in vs.net