Dim sql As String = "Select * FROM Employee"
Dim cmd As New OleDbCommand(sql, connect)
Dim Adapter As New OleDbDataAdapter(cmd)
dim dataset as New DataSet
Adapter.Fill(dataset, "Employee")
PictureBox.DataBindings.Add("text", dataset, "Employee.PictureEmployee")
TbxBirthday.DataBindings.Add("text", dataset, "Employee.Birthday")