Hvordan få knapp til å skrive data til ods-fil? (Basic)

[Bank1]

Fant en video på Youtube som viste hvordan man skulle lage string for å skrive til excel-fil, men jeg ønsker å skrive til en ODS-fil. Hva skriver man i stringen i stedet for dette?

 

Imports System.Data.OleDb

Public Class Form1

Dim cn As New OleDbConnection

Dim cm As New OleDbCommand

Private Sub BtnLagre_Click(sender As Object, e As EventArgs) Handles BtnLagre.Click

cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=‪C:\Users\SS\Desktop\ProgrammeringCalc\Calc1.ods"

cn.Open()

With cm

.Connection = cn

.CommandText = "insert into [Data Agen$]values('" & TxtId.Text & "','" & TxtNama.Text & "')"

.ExecuteNonQuery()

End With

cn.Close()

MsgBox("Vellykket", MsgBoxStyle.Information, Text)

End Sub

End Class