Visual Basic - Crear tabla en BD

Como puedo crear una Tabla e introducirle la data en en una base de datos de Acces

para crear una tabla podes usar la instrussion CREATE TABLE en una sentensia sql y para intrdusirle la data el comando ADDNEW,
espero haveros alludado.

Aquí tienes un ejemplo completo que es el que yo uso y funciona sin problemas.
También te comprueba si existe.

Function AñadeTabla()
' CREA UNA NUEVA TABLA
Dim BdAneu As Database, Tabla As TableDef
Dim Columna As Field
Set BdAneu = Workspaces(0).OpenDatabase("C:\MiCarpeta" & "\MiBaseAccess.mdb", True)

Dim TablaCorreos As TableDef
' Recorre la tabla y comprueba si existe
For Each TablaCorreos In BdAneu.TableDefs
' Si existe la tabla, sala de la función
If TablaCorreos.Name = "Correos" Then
Exit Function
End If
Next

' Si no existe la tabla, la crea
Set Tabla = BdAneu.CreateTableDef("Correos")
Set Columna = Tabla.CreateField("Orden", dbInteger, 4)
Tabla.Fields.Append Columna
Set Columna = Tabla.CreateField("Referencia", dbText, 30)
Tabla.Fields.Append Columna
Set Columna = Tabla.CreateField("fecha", dbDate)
Tabla.Fields.Append Columna


BdAneu.TableDefs.Append Tabla
BdAneu.Close
Set BdAneu = Nothing
Set Tabla = Nothing
Set Columna = Nothing

Espero que te sirva.
Un saludo