编写VB .NET代码：设计一个 用户界面，允许用户输入预订信息，查询包间信息等等。编写代码来将用户信息插入到数据库中。您还需要编写代码 以检索数据库中的信息并将其显示在用户界面中。

以下是一个简单的VB .NET代码示例，用于设计一个简单的用户界面，允许用户输入预订信息，查询包间信息等等，以及将用户信息插入到数据库中，并从数据库中检索信息并将其显示在用户界面中。

请注意，此示例仅用于演示目的，可能需要更改以适应您的具体需求和数据库结构。您还需要确保适当的数据库连接字符串和查询语句以及表单控件和事件处理程序。

Imports System.Data.SqlClient

Public Class Form1
    Dim conn As SqlConnection
    Dim cmd As SqlCommand
    Dim dr As SqlDataReader

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '连接数据库
        conn = New SqlConnection("Data Source=YOUR_SERVER_NAME;Initial Catalog=YOUR_DATABASE_NAME;Integrated Security=True")
        conn.Open()
    End Sub

    Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
        '插入用户信息到数据库
        Dim query As String = "INSERT INTO Reservation (Name, Date, Time, RoomNumber) VALUES (@Name, @Date, @Time, @RoomNumber);"
        cmd = New SqlCommand(query, conn)
        cmd.Parameters.AddWithValue("@Name", txtName.Text)
        cmd.Parameters.AddWithValue("@Date", dtpDate.Value)
        cmd.Parameters.AddWithValue("@Time", txtTime.Text)
        cmd.Parameters.AddWithValue("@RoomNumber", txtRoomNumber.Text)
        cmd.ExecuteNonQuery()
        MessageBox.Show("Reservation submitted successfully!")
    End Sub

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        '从数据库中检索信息并将其显示在DataGridView中
        Dim query As String = "SELECT * FROM Reservation WHERE RoomNumber = @RoomNumber;"
        cmd = New SqlCommand(query, conn)
        cmd.Parameters.AddWithValue("@RoomNumber", txtSearchRoomNumber.Text)
        dr = cmd.ExecuteReader()
        If dr.HasRows Then
            Dim dt As New DataTable
            dt.Load(dr)
            dgvResult.DataSource = dt
        Else
            MessageBox.Show("No reservation found for room number " & txtSearchRoomNumber.Text)
        End If
        dr.Close()
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        '关闭数据库连接
        conn.Close()
    End Sub
End Class