Private Sub BtnInsertar_Click(sender As Object, e As EventArgs) Handles BtnInsertar.Click
    Dim conexion As SqlConnection
    conexion = New SqlConnection("server=USER-PC; database=base1; integrated security=true")
    conexion.Open()

    Dim placa As String = TxtPlaca.Text
    Dim marca As String = TxtMarca.Text
    Dim cilindraje As String = TxtCilindraje.Text
    Dim color As String = TxtColor.Text
    Dim modelo As String = TxtModelo.Text

    Dim cadena As String = "insert into automovil (placa, marca, cilindraje, color, modelo) values (" & placa & ",'" & marca & "', " & cilindraje & ",'" & color & "','" & modelo & "')"

    Dim comando As SqlCommand
    comando = New SqlCommand(cadena, conexion)
    comando.ExecuteNonQuery()

    MessageBox.Show("Datos Ingresados Correctamente")

    TxtPlaca.Text = ""
    TxtMarca.Text = ""
    TxtCilindraje.Text = ""
    TxtColor.Text = ""
    TxtModelo.Text = ""

    conexion.Close()
End Sub