another error ocurred T_T, Cannot open database ''. It may not be a database that your application recognizes, or the file may be corrupt.

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)

        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