Insérer des données Userform dans la table Access à l'aide de vba excel

Je suis en train de faire un simple inventaire d'application du système à l'aide de VBA Excel. J'ai un userform pour obtenir l'entrée et je voudrais enregistrer les données à importer dans une quelques tables Microsoft Access.

Je suis en train d'extraire les données à partir de l'objet userform et entrer dans le tableau lorsque l'utilisateur appuie sur entrée. Lorsque j'exécute ce code, un nouvel enregistrement est fait avec l'ID de tableau mais les deux dossiers, je suis en train d'importer sont laissés en blanc.

    Public Sub AddDatabaseEntry()

      'Initialize all variables
      Dim cn As New ADODB.Connection
      Dim rs As New ADODB.Recordset
      Dim stDB As String, stSQL As String, stProvider As String
      Dim orderNum As String
      Dim orderDate As String

      orderNum = txtOrderNum
      orderDate = txtDate


      stDB = "Data Source= " & ThisWorkbook.Path & "\obsDatabase.accdb"
      stProvider = "Microsoft.ACE.OLEDB.12.0"


      'Opening connection to database
      With cn

          .ConnectionString = stDB
          .Provider = stProvider
          .Open

      End With

     'SQL Statement of what I want from the database
      stSQL = "INSERT INTO Orders (OrderNumber, OrderDate) " & _
              "Values ('" & orderNum & "', '" & orderDate & "')"

      Set rs = cn.Execute(stSQL)


      'Looping through the records I pulled and inserting the data into the comboBox

      cn.Close
      Set rs = Nothing
      Set cn = Nothing

    End Sub

    Private Sub btnAdd_Click()

      AddProduct
      AddDatabaseEntry

    End Sub
InformationsquelleAutor Reznor | 2012-07-27