Visual Basic.NET - system error

tengo este simple codigo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''OBTIENE EL CODIGO DE USUARIO Y BUSCA EL RESTO DE INFO PARA LLENALA'''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim dreader As SqlDataReader

objExt.CommandText = "select User_ID1, Name from Users where User_ID1 = ?"
objExt.CommandType = CommandType.Text
objExt.Parameters("@Param1").Value = "0001"

SqlConnection.Open()

dreader = objExt.ExecuteReader ''' <<<--------- SYSTEM ERROR

If dreader.Read() Then
txtUserName.Text = Convert.ToString(dreader("Name"))
txtUserEmail.Text = Convert.ToString(dreader("Email"))
txtUserDept.Text = Convert.ToString(dreader("Department"))
End If

dreader.Close()
SqlConnection.Close()

End Sub

el problema es q el execute reader me tira un "sytem error", y parece ser al pasar el parametro ya q tengo un codigo similar pero sin parametro y funciona, alguien tiene alguna idea de qué es lo que está pasando?