这个程序提示没有命令对象．
Private Sub Command2_Click()
    Dim con As New ADODB.Connection
    Dim rst As ADODB.Recordset
   Set con = New ADODB.Connection
   Set rst = New ADODB.Recordset
   con.Open "DSN=aa;uid=sa;ped="
  'con.Open "Provider=MSDASQL;Data Source=(LOCL);Initial Catalog=StudentMIS;User ID=sa;Password="
   rst.Open Trim(SQL), con, adOpenStatic, adLockReadOnly
   
    con.Close


对象打开不能操作．请高手改正．

试试把那两句set去掉

问题在这里
     Dim con As New ADODB.Connection
    Dim rst As ADODB.Recordset
   Set con = New ADODB.Connection
   Set rst = New ADODB.Recordset

   还有SQL没有赋值

Function ConToSQLDB()
 '*******************************
 '打开与 SQL Server 数据库的连接
 '*******************************
  sqlcon.Provider = "sqloledb"
  sqlcon.Properties("Data Source").Value = "ABC"         '//  ABC为SQL Server 服务器名
 sqlcon.Properties("Initial Catalog").Value = "DDD"         '//DDD为已创建数据库名
  sqlcon.Properties("persist security info").Value = "False"
  sqlcon.Properties("user id").Value = "sa"
  sqlcon.Properties("password").Value = "sa"
  sqlcon.Open
End Function

打开与数据库的连接.
添加到模块中,可随时调用.

con.Open "DSN=aa;uid=sa;pwd=";"
好像应该是pwd而不是ped,还有后面的分号和双引号.
还有下面加注释的那个datasource那地方应该是local而不是locl....

Trim(SQL)这地方,照你的想法应该是要执行的SQL语句,在程序中没有.
不知实际你写上没有.