Disini saya akan membuat program Toko Obat
Pertama kita akan kenalan dengan web form yg saya buat dulu,saya membuat web form Table

dan saya membuat web toko nya

tampilan dari web toko nya

tampilan dari web table nya

jika kita ingin mencari suatu kode obat, masukan kode nya seperti berikut

lalu klik search

dan akan terlihat jenis,nama,stok,harga nya.

source code:

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Partial Class table_alialfaris161011400201
    Inherits System.Web.UI.Page
    Dim constring As String = ConfigurationManager.ConnectionStrings("Database0ConnectionString").ConnectionString
    Dim oConn As New OleDbConnection(constring)
    Dim oTbl As New DataTable
    Dim xReader As OleDbDataReader

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Response.Redirect("webtoko_alialfaris161011400201.aspx")
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      
    End Sub
    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Not Len(TxtKode.Text) = 0 Then
            oConn.Close()
            oConn.Open()
            Dim ocmd As New OleDbCommand("SELECT * FROM Table1 where Kode='" + TxtKode.Text + "'", oConn)
            xReader = ocmd.ExecuteReader
            If xReader.HasRows Then
                xReader.Read()
                TxtNama.Text = xReader("Nama Obat")
                TxtJenis.Text = xReader("Jenis Obat")
                TxtStok.Text = xReader("Stok")
                TxtHarga.Text = xReader("Harga")

            Else
                TxtNama.Text = "Nama Karyawan Tidak ada"
                Exit Sub
            End If
            xReader.Close()

        End If
    End Sub
End Class

apabila ada kekurangan mohon dimaafkan.