se me cambia de nombre la base de datos

[guillebomtrasmiti]

jopeeee super aquaaaa siempre tienes que traducirme lo que me dicen...que torpe soy...jajajajaja voyyy a por ello...

'insertar todos los registros de introducciondeventasahora a introducciondeventasahora2 según las fechas seleccionadas para poder imprimir el informe
Public Sub copiaintrointro2()
Try
borrarcontenidointro2()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet


'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "INSERT INTO IntroduccionDeVentasAhora2 SELECT * FROM [IntroduccionDeVentasAhora] WHERE Fecha BETWEEN @FI AND @FF Order by Fecha"
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
comados.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

conexion.Open()

Dim Lecto1 = comados.ExecuteNonQuery
conexion.Close()
Catch

End Try

End Sub