Visual Basic.NET - Borra datos al abrir base de datos

Muy buenas, por favor que alguien me ayude.

Estoy manejando una base de datos Access con un programa en VB .net 2012 y cuando abro la base de datos me encuentro que está vacia. Aunque la llene de datos siempre me los borra al abrirla. Este es el código:

Public cadena As String = ""
Public conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=./BaseData.accdb")
Public cmd As New OleDb.OleDbCommand
Public sql As String = ""

Public Sub ConectarseBD()
Try
conn.Open()
Catch ex As Exception
MessageBox.Show(ex.ToString, "Error al Abrir Base de Datos", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

cmd.CommandType = CommandType.Text
cmd.Connection = conn

sql = "INSERT INTO MOROSO (Nombre, CIF, CLASIFICACION) "
sql += " VALUES ('" & nom & "','" & cod & "','" & clas & "' )"

cmd.CommandText = sql
Try
cmd.ExecuteNonQuery()
Catch ex As Exception

End Try
End Sub

y donde estan los valores para esta linea:
('" & nom & "','" & cod & "','" & clas & "' )"?