Visual Basic.NET - RELACIONAR TABLAS Y GUARDAR LOS ID

Using conn As New SqlConnection(CADENACONEXION1)

	conn.Open()

	Dim query1 As String = "INSERT INTO usuarios (nombreusuario,almacenusuario,numusuario) VALUES (@nombreusuario,@almacenusuario,@numusuario)"

	Dim cmd As New SqlCommand(query1, conn)

	Try

		cmd.Parameters.Clear()

		cmd.Parameters.AddWithValue("@nombreusuario", txtnombre.Text)

		cmd.Parameters.AddWithValue("@almacenusuario", cbalmacenes.Text)

		cmd.Parameters.AddWithValue("@numusuario", txtcontraseña.Text)

		cmd.ExecuteNonQuery()

		MessageBox.Show("USUARIO GUARDADO CORRECTAMENTE") ' si los datos fueron guardados mandara este mensaje 

		txtnombre.Text = ""

		txtcontraseña.Text = ""

		txtnombre.Focus()

	Catch ex As Exception

		MessageBox.Show("ERROR AL INGRESAR LA CLASE") 'si los datos no fueron guardados mandara este mensaje

	Finally

		conn.Close()

	End Try

End Using

cmd.Parameters.AddWithValue("@almacenusuario", cbalmacenes.Text)

cmd.Parameters.AddWithValue("@almacenusuario", cbalmacenes.selectedvalue)

Sub llenaralacenes()

	cbalmacenes.Items.Add("Seleccione un almacen")

	Using cnn As New SqlConnection(CADENACONEXION1)

		Try

			Dim cmd As SqlCommand = cnn.CreateCommand()

			cmd.CommandText = "SELECT * FROM almacenes"

			cnn.Open()

			Dim dr As SqlDataReader =

			cmd.ExecuteReader(CommandBehavior.CloseConnection)

			While dr.Read()

				cbalmacenes.Items.Add(dr("descripcion").ToString())

			End While

			dr.Close()

		Catch ex As Exception

			MessageBox.Show(ex.Message)

		End Try

	End Using

	cbalmacenes.SelectedIndex = 0

End Sub