Set ObjConn = New ADODB.Connection
ObjConn.Open "tmhbiaodz"
Set ObjRst = New ADODB.Recordset
Set ObjRst.ActiveConnection = ObjConn
ObjRst.LockType = adLockOptimistic
ObjRst.CursorType = adOpenKeyset
ObjRst.Source = "select * from tmhbiao"
ObjRst.Open