Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = ADOConnect
Set Rs_type = Nothing
Set Rs_type = New ADODB.Recordset
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = ADOConnect
cmd.CommandText = "select * from 类型"
Rs_type.Open cmd, , ADODB.adOpenKeyset, ADODB.adLockOptimistic