Visual Basic 2010 数据库开发之酒店管理系统07客房信息查询

Imports System.Data.SqlClient
Public Class frmKeFangChaXun
    Dim conn As SqlConnection = GetConnection()
    Dim strSql As String = "Select * From 客房信息"
    Dim myda As New SqlDataAdapter(strSql, conn)
    Dim mydt As DataTable
    
    Private Sub FillDataAndView()
        mydt = New DataTable
        myda.Fill(mydt)
    End Sub

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

        cmbMode.SelectedIndex = 0
        txtCondition.Text = "标准房"

        DataGridView1.DataSource = mydt
    End Sub

    Private Sub frmKeFangChaXun_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        Me.Close()
        frmMain.Show()
    End Sub

    Private Sub btnSearch_Click(ByVal sender As S