> 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 >>