En el Botón Grabar

Dim sql As String

sql = "insert into institucion(abrev,nombrecompleto)values('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "')"

conexion.Insertar(sql)