Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Run a command through current project

Sub runcmdobj()   Dim cmd As ADODB.Command   Dim strSQL As String   Set cmd = New ADODB.Command   strSQL = "SELECT * FROM Employees"   'Resuse the current Access connection   Set cmd.ActiveConnection = CurrentProject.Connection   cmd.CommandText = strSQL   cmd.Execute   Set cmd = Nothing End Sub