JMC...
I read your blog and I changed the code to this:
The only thing I do not totally understand is how I can use the datatable here to load the data upfront...Code:Private Sub vuldetails() Dim strvuldetails_sql As String = String.Format("SELECT BTW_ID,Code,Percentage,IsActief " & _ "FROM tblBTW " & _ "WHERE BTW_ID = @GeselecteerdeBTW") Using cmdvuldetails As New OleDbCommand(strvuldetails_sql, connection) connection.Open() With cmdvuldetails.Parameters .AddWithValue("@GeselecteerdeBTW", CInt(intGeselecteerdeBTW)) End With Dim reader As OleDbDataReader = cmdvuldetails.ExecuteReader While reader.Read() Me.txtID.Text = reader("BTW_ID").ToString Me.txtBtwCode.Text = reader("Code").ToString Me.txtPercentage.Text = reader("Percentage").ToString chkIsActief.Checked = CBool(reader("IsActief")) blnIsActief = CBool(reader("IsActief")) End While reader.Close() connection.Close() End Using End Sub




Reply With Quote