如何使用DAO在VB6.0中建立数据库，表，以及添加修改记录

Private Sub Command1_Click()
Dim msgans As VbMsgBoxResult
Dim tdfNewTable As TableDef
Dim fldNewField As Field
Dim db As Database
Dim strsql As StringIf Dir("student.mdb") <> "" Then
   msgans = MsgBox("student.mdb already exist", vbYesNo, "create database")
   If msgans = vbYes Then
      Kill (App.Path + "student.mdb")
   Else
      Exit Sub
   End If
End IfSet dbNewDB = CreateDatabase(App.Path + "student.mdb", dbLangGeneral)Set db = OpenDatabase(App.Path + "\DB.mdb")strsql = "CREATE TABLE student(Name char(5),Gender boolean, Age Integer)"
db.Execute (strsql)
//////////////////////////////////////////////////////////////
这样就提示没有with块变量Private Sub Command1_Click()
Dim msgans As VbMsgBoxResult
Dim tdfNewTable As TableDef
Dim fldNewField As Field
Dim db As Database
Dim strsql As StringIf Dir("student.mdb") <> "" Then
   msgans = MsgBox("student.mdb already exist", vbYesNo, "create database")
   If msgans = vbYes Then
      Kill (App.Path + "student.mdb")
   Else
      Exit Sub
   End If
End IfSet dbNewDB = CreateDatabase(App.Path + "student.mdb", dbLangGeneral)Set tdfNewTable = dbNewDB.CreateTableDef("student")With tdfNewTable
.Fields.Append .CreateField("Name", dbText, 32)
.Fields.Append .CreateField("Gender", dbBoolean)
.Fields.Append .CreateField("Age", dbInteger)
End With
/////////////////////////////////////
这样就没有问题，但是不知道如何添加记录或者如果使用SQL来进行操作，谢谢各位