[Rabeea Qbaha]

صديقي مشروعك sql و انت مرفق قاعدة بيانات access 
وليس لدي الوقت لتحويله.


الطريقه سهلة جدا 

استخدم ال function هذا 

كود :

Public Function user_id(ByVal username As String) As Integer

      Dim output As Integer

      Try
          If ConnectionState.Open Then
              Conn.Close()
          End If

          Conn.Open()
          Dim cmd As OleDbCommand = Conn.CreateCommand
          cmd.CommandText = "Select user_id from your_table where user_name=@user_name"
          cmd.Prepare()
          cmd.Parameters.AddWithValue("@user_name", username)

          Dim dr As OleDbDataReader
          dr = cmd.ExecuteReader
          While dr.Read()
              output = dr.GetValue(0)
          End While
          dr.Close()

      Catch ex As OleDbException
          ' Do some logging or something.
          MessageBox.Show("There was an error accessing your data. DETAIL: " & ex.Message)
      End Try

      Return output

  End Function

وعدل اسماء الاعمدة اللازمه واسم الجدول.
عند ادخال البيانات اللازمه للجدول فقط ضع  user_id(ComboBox.SelectedItem) 
user_id(ComboBox.SelectedItem) -- هي رقم ال user_id