i keep getting error when i run my vb project

[debrino4000]

Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If Cmbusertype.Text = "Admin" Then
sql = "select * from tbl_login where log_usertype='" & Cmbusertype.Text & "' and log_username='" & Txtusername.Text & "' and log_pass='" & Txtpassword.Text & "'"
If rs.State = 1 Then rs.Close()
rs.Open(sql, conn, 1, ) <"this is where i get the error"
If rs.EOF = False Then
usertype = Cmbusertype.Text
userid = Txtusername.Text
Cmbusertype.Text = ""
Txtpassword.Text = ""
Txtusername.Text = ""

 

[mole999]

put Option Explicit at the very top of the module and then compile, fix the missing references