我这样写了代码还是不行 如下，

If rs.State = adStateOpen Then
rs.Close
conn.Open (constr)
rs.CursorLocation = adUseClient
rs.Open ssql, conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End If

conn放出来..