Imports System.Data
Imports System.IO
Imports personal_dtls.perds
Imports personal_dtls.perdsTableAdapters
Private Sub insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insert.Click
Dim adapter As New perdsTableAdapters.Daily_AttndTableAdapter
adapter.InsertQuery("as", "asd", "cs", 98, 98, 9, 67)
End Sub