kevinya

Dim strSQL As String = " select * from Employees where EmployeeID='" & empid & "'"
        Dim cn As SqlConnection
        Dim da As SqlDataAdapter
        Dim dt As DataTable = New DataTable
        Try
            cn = New SqlConnection(strCn)
            da = New SqlDataAdapter(strSQL, cn)
            da.Fill(dt)
            Dim temp As String
            temp = ""
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

簡單吧!