Storing Userid globally after login

In your module you must declare your variable

Public globalSurveyorId As Int16

after the  If sqlReader.Read Then

' ID is your field name
globalSurveyorId  = sqlReader.Item("ID")

now you can use it whenever you want

Cool, Works a treat.

That logs me in and sets the SurveyorId, This now populates a ComboBox of all there contracts

Do you know how to pull the contract number from a combobox which is showing Contract name.  I ahve at present

    Private Sub FormMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'globalContractNumber = 423
        'DisableFormCloseButton(Me)

        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT ContractNumber, ContractName FROM Contracts Where SurveyorId = " & globalSurveyorId

        Try
            cmd.Connection.Open()
            dr = cmd.ExecuteReader
            While dr.Read
                MyComboBox.Items.Add(dr.GetValue(dr.GetOrdinal("ContractName")).ToString)
            End While
        Catch ex As SqlException
            MessageBox.Show(ex.Message)
        Finally
            cmd.Connection.Close()
        End Try

        MyComboBox.SelectedValueChanged()
        Dim val As String
        val = MyComboBox.SelectedValue

    End Sub


    Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
        'MyComboBox_SelectedValueChange("ContractId")

        Dim ContractNumber As String

        globalContractNumber = ContractNumber
        Dim Test As New Formtest()
        Test.Show()
    End Sub

Ok, does the bottom part of the code go into the button or within the try section?

sorry, me being doppy, I didnt realise that the tag value should be replace with the "ID" column name

Thanks