[أبو عمر]

طيب جميل
جرب الان هذا الكود
da = New SqlDataAdapter("select userid,pass,status from utb where userid= '" & txt1.Text & "' and pass= '" & txt2.Text & "'", con)
dt.Reset()
da.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("invalid user name or password")
End If
Dim Mystatus As String = dt.Rows(0)("status").ToString
If Mystatus = "admin" Then
Form1.Show()
Form1.Tprint.Visible = True
ElseIf Mystatus = "user" Then
Form1.Show()
End If
وان شاء الله يضبط