I have another problem, it say's IErrorInfo.GetDescription failed with E_FAIL(0x80004005). vb.net

See more:

VB

Imports System.Data.OleDb
Public Class WF
Dim cnn As New OleDb.OleDbConnection

Private Sub RefreshData()
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If

Dim da As New OleDb.OleDbDataAdapter(" SELECT Husband as [Husband], Wife as [Wife], Husband's Birthday as [Husband's Birthday], Husband's Age as [Husband's Age], Wife's Birthday as [Wife's Birthday], Wife's Age as [Wife's Age], Husband's Mother as [Husband's Mother], Husband's Father as [Husband's Father], Wife's Father as [Wife's Father], Wife's Mother as [Wife's Mother], Date of Wedding as [Date of Wedding] FROM Wedding ", cnn)

Dim dt As New DataTable

da.Fill(dt)==> this is the error
dgv1.DataSource = dt
cnn.Close()
End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim cmd As New OleDb.OleDbCommand

If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If

cmd.Connection = cnn
cmd.CommandText = " INSERT INTO Wedding ([Husband], [Wife], [Husband's Birthday], [Husband's Age], [Wife's Birthday],[Wife's Age], [Husband's Mother], [Husband's Father], [Wife's Father], [Wife's Mother], [Date of Wedding]) " & _
" VALUES('" & txtHN.Text & "','" & txtWN.Text & "','" & txtHBD.Text & "','" & txtHA.Text & "','" & txtWBD.Text & "','" & txtWA.Text & "','" & txtHM.Text & "','" & txtHF.Text & "','" & txtWF.Text & "','" & txtWM.Text & "','" & txtDoW.Text & "')"
cmd.ExecuteNonQuery()

RefreshData()

cnn.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cnn = New OleDb.OleDbConnection
Dim sql_query As String
sql_query = "SELECT * FROM Wedding"

cnn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source = " & Application.StartupPath & "\Churh.mdb"

End Sub
End Class