Private Sub GetContactInfo()
Dim SQL As String
SQL = "SELECT * From tblTeams WHERE [fldTeamName] = lstteamNames.Text"
Set rs = db.OpenRecordset(SQL) 'this is the highlighted error line
If rs Is Nothing Then Exit Sub
rs.MoveLast
rs.MoveFirst
While Not rs.EOF
txtHCName.Text = rs("fldHCName") & ""
txtHCPhone.Text = rs("fldHCPhone") & ""
rs.MoveNext
Wend
End Sub
If anyone knows a decent site to learn more about SQL...please let me know.
