Property & tampil()

Dim db As New Database
    Dim query As String
    Dim cmd As SqlCommand
    Dim da As SqlDataAdapter
    Public Sub tampil()
        db.koneksi()
        query = "SELECT * FROM inventaris"
        da = New SqlDataAdapter(query, db.konek)
        Dim dt As New DataTable
        da.Fill(dt)

        Form1.UcInventaris1.dgvInventaris.DataSource = dt
    End Sub