>> Using sconn As New SqlConnection(ConnString) >> Try >> PswrdTries = PswrdTries + 1 >> If PswrdTries > 2 Then >> Me.Close() >> End If >> sconn.Open() >> Dim msql1 As String = "Select * from CATDecode where DecName = 'PASSWORD'" >> Using ms1 As New SqlCommand(msql1, sconn) >> Using ds1 = ms1.ExecuteReader >> If ds1.Read Then >> If Trim(ds1.Item("DecValue").ToString.ToUpper) <> Trim(txtPassWord.Text.ToUpper) Then >> MsgBox("Password does not match" & vbCrLf & "One try left", vbOKOnly + vbCritical, "Incorrect Password") >> Else >> Dim msql2 As String = "Select * from CATDecode where DecName = 'SUBBANK'" >> Using ms2 As New SqlCommand(msql2, sconn) >>** Error occurs on next statement ** >> Using ds2 = ms2.ExecuteReader >> If ds2.Read() Then >> TestSub = ds2.Item("DecValue").ToString.Substring(4, ds2.Item("DecValue").ToString.Length) >> End If >> End Using >> End Using >> End If >> End If >> End Using >> End Using >> sconn.Close() >> Catch ex As Exception >> sconn.Close() >> MsgBox("Sql Exception: " & ex.Message) >> End Try >> End Using >>>>