Dim cmd1 As OleDbCommand
Dim da1 As New OleDbDataAdapter
Dim ds1 As New DataSet
cmd1 = New OleDbCommand("SELECT * FROM ToDo", myCon)
If myCon.State = ConnectionState.Closed Then myCon.Open()
da1 = New OleDbDataAdapter(cmd1)
da1.Fill(ds1, "ToDo")
DataGridView1.DataSource = ds1.Tables("ToDo").DefaultView
myCon.Close()