Your If..Then needs an End If.

And the line with conn.Open(...) will probably need Call before it; so: Call conn.Open(...)

And rs is never assigned anything in the code you posted. so: Set rs = conn.Execute(strSQL)

And in the line:
VB Code:
  1. strSQL = "Select User_ID, User_Password From tblUsers " _ 

  2. & "Where UserName = '"&User_ID&"' And Password = '"&User_Password&"'"
User_ID and User_Password are not mentioned anywhere so they will always evaluate to an empty string in that line of code.