login

tengo una duda este codigo que te voy a mostrar en este post lo tengo para validar usuario y lo que quiero es validarlos en todo mi sistema

 Dim pass, user As String

        Using conexion As New SqlConnection(ConfigurationManager.ConnectionStrings("conect").ToString())
            conexion.Open()
            Dim query As String = "select * from usuarios where usuarios=@Usuarios and pass=@pass  "
            Dim cmd As New SqlCommand(query, conexion)
            cmd.Parameters.AddWithValue("@usuarios", (txtuser.Text))
            cmd.Parameters.AddWithValue("@pass", (txtcont.Text))
            Dim reader As SqlDataReader = cmd.ExecuteReader
            If reader.Read() Then
                user = CStr(reader("usuarios"))
                pass = CStr(reader("pass"))
                If txtuser.Text = user And txtcont.Text = pass Then
                    MsgBox("Bienvenido       " & user & "      ", MsgBoxStyle.Information, "Soltic SA de CV")
                    cmdcon.Visible = True
                    cmdn.Visible = True
                    cmdpen.Visible = True
                Else
                    MsgBox("Clave incorrecta", MsgBoxStyle.Critical, "Soltic SA de CV")

                End If
            End If
        End Using

    End Sub