Visual Basic.NET - Utilizando DAO para crear Tablas en una BD access

Hola, tengo una aplicación en visual basic .net que me crea una base de datos en DAO, la base de datos es ACCESS, pero ahora yo quiero meterle una tabla, tengo el siguiente script:

[S]
Sub creartabla()
Dim bd = "NewDB.mdb"
Dim totaltbls = listaCampos.Items.Count()
Dim defaultNum = "0"
While defaultNum < totaltbls
End While
Dim dbs As DAO.Database
Dim ws As DAO.Workspace
Dim dbeng As New DAO.DBEngineClass
ws = dbeng.Workspaces(0)
ws.OpenDatabase(db)
dbs.Execute("CREATE TABLE ThisTable (FirstName CHAR (25), LastName CHAR (25)); ")
ws.Close()
End Sub
[/S]

Me da el error en la siguiente linea:
dbs.Execute("CREATE TABLE ThisTable (FirstName CHAR (25), LastName CHAR (25)); ")
y no se como hazerlo, bueno, adiós y gracias por adelantado