clsRuang - tampil()

    Dim db As New Database
    Dim cmd As SqlCommand
    Dim dt As DataTable
    Dim da As SqlDataAdapter
    Dim query As String

    Public Sub tampil()
        db.koneksi()
        query = "SELECT * FROM ruang"
        da = New SqlDataAdapter(query, db.konek)
        dt = New DataTable
        da.Fill(dt)

        Form1.UcInventaris1.dgvRuang.DataSource = dt
        Form1.UcInventaris1.dgvRuang.Columns(0).Visible = False
    End Sub