Imports System.Data.SqlClient Public Class EmployeeList Public conn As SqlConnection = New SqlConnection("Server=;Database=;Trusted_Connection=True;") Public cmd As New SqlCommand Public da As New SqlDataAdapter Public ds As New DataSet Private Sub EmployeeList_Load(sender As Object, e As EventArgs) Handles MyBase.Load conn.Open() Me.TextBox1.Text = "@BadgeNum" With cmd .Connection = conn .CommandText = "SELECT LastName FROM EmployeeData2 WHERE BadgeNumber = @BadgeNum;" End With da.SelectCommand = cmd da.Fill(ds, "EmployeeData2") With ListBox1 .DataSource = ds.Tables(0) .DisplayMember = "LastName" End With conn.Close() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)