متد Connect

کد:

    Public Sub Insert(ByRef َArgum...)
        Set Cmd = New ADODB.Command
        Set Rst = New ADODB.Recordset
   
        Connect
       
        Cmd.ActiveConnection = Conn
        Cmd.CommandType = adCmdText
        Cmd.CommandText = "Insert Into tblTest (Field1)Values(@Field1)"
        Cmd.Parameters.Refresh
        Cmd.Parameters.Item(0).Value = Argum...
       
        Rst.CursorType = adOpenKeyset
        Rst.CursorLocation = adUseClient
        Set Rst = Cmd.Execute
    End Sub