i have some problem with this code..can you help me fix my problem thank you...

Imports System.Data.OleDb
Public Class Add_LEads
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|C:\Users\Mylene\Desktop\FDQOH")
lblDate.Text = Format(Date.Now, "yyyy/MM/dd")
Try
con.Open()
Catch ex As InvalidOperationException
MessageBox.Show(ex.Message)
End Try
Dim sql As String
Dim a As Integer
sql = "select S_No from Leadss"
cmd = New OleDbCommand(sql, con)
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader
While dr.Read
a = dr(0)
End While
lblNo.Text = a + 1
con.Close()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
con.Open()
cmd.Connection = con
cmd.CommandText = "INSERT INTO Leadss(SR-CODE,LName,FName,MInitial,Sec)VALUES('" & sr.Text & "','" & lname.Text & "','" & fname.Text & "','" & midint.Text & "','" & sec.Text & "')"
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Saved!!!", vbOK)
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
MessageBox.Show("WELCOME")
End Sub
End Class