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