Dim conn As MySqlConnection
 
        If Not conn Is Nothing Then conn.Close()
 
        Dim connStr As String
        connStr = String.Format("server={0};user id={1}; password={2}; pooling" & _
          "= false", _
    vServer, vUser, vPasswort)
 
        Try
            conn = New MySqlConnection(connStr)
            conn.Open()
            Dim cmd As New MySqlCommand("create database if not exists `" & _
              vDBName & "`;", conn)
            cmd.ExecuteNonQuery()

    Dim oSQLite As New SqlClient.SqlConnection
 
        If Not oSQLite Is Nothing Then oSQLite.Close()
 
        Dim connStr As String
        connStr = String.Format("server={0};user id={1}; password={2}; pooling" & _
          "= false", _
    vServer, vUser, vPasswort)
 
        Try
            oSQLite = New SqlClient.SqlConnection(connStr)
            oSQLite.Open()
            Dim cmd As New SqlClient.SqlCommand("create database if not exists" & _
              "`" & vDBName & "`;", sqliteconn)
            cmd.ExecuteNonQuery()