СРОЧНО! У меня VB не контачит с базами данных!

Private Sub cmdCommand1_Click()
Dim Db As Database
Dim Ws As Workspace
Const dbPath = "c:\Mydb.mdb"
Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.CreateDatabase(dbPath, dbLangGeneral)
CreateTable Db
End Sub
 
 
Public Function CreateTable(ByVal dbTemp As Database) As Boolean
 
Dim tdfTemр As TableDef
Dim idx As Index
Dim fld As Field
 
On Error GoTo errhandle
 
CreateTable = True
' CREATE TABLE "BalanceShifr"
Set tdfTemp = dbTemp.CreateTableDef("BalanceShifr")
Set fld = tdfTemp.CreateField("ConditionId", dbLong)
fld.Required = True
tdfTemp.Fields.Append fld
Set fld = tdfTemp.CreateField("Account", dbText, 4)
tdfTemp.Fields.Append fld
Set fld = tdfTemp.CreateField("SubAcc", dbText, 4)
tdfTemp.Fields.Append fld
Set fld = tdfTemp.CreateField("Shifr", dbLong)
tdfTemp.Fields.Append fld
Set fld = tdfTemp.CreateField("Date", dbDate)
fld.Required = True
tdfTemp.Fields.Append fld
Set fld = tdfTemp.CreateField("SaldoDeb", dbCurrency)
tdfTemp.Fields.Append fld
Set fld = tdfTemp.CreateField("SaldoKr", dbCurrency)
tdfTemp.Fields.Append fld
dbTemp.TableDefs.Append tdfTemp
 
' CREATE INDEX "BalanceShifr"
Set tdfTemp = dbTemp.TableDefs("BalanceShifr")
Set idx = tdfTemp.CreateIndex("ForeignKey")
Set fld = idx.CreateField("ConditionId")
idx.Fields.Append fld
tdfTemp.Indexes.Append idx
Exit Function
 
errHandle:
MsgBox "Table creating error!", vbExclamation, "Error"
CreateTable = False
End Function