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 UsingWhat am I missing?