Sorry, I had a few extra lines in there. This is what I have.
Private Sub Form_Load()
Dim rs11 As ADODB.Recordset
Dim DB11 As New ADODB.Connection
Dim ssql2 As String
ssql2 = "select * from help_desk"
DB11.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=survey"
DB11.Open
Set rs11 = New ADODB.Recordset
rs11.CursorType = adOpenKeyset
rs11.LockType = adLockOptimistic
rs11.CursorLocation = adUseClient
rs11.Open ssql2, DB11
Do Until rs11.EOF
rs11.MoveNext
Loop
Set DataGrid1.DataSource = rs11
end sub