Try
            If connection.State = ConnectionState.Closed Then
                connection.Open()
            End If
            Dim cmd As New OleDbCommand("insert into Table1(Email,[Password]) Value(?,?)", connection)
            cmd.Parameters.AddWithValue("@1", OleDbType.VarChar).Value = Email.Text
            cmd.Parameters.AddWithValue("@1", OleDbType.VarChar).Value = Passwordtillogin.Text

            cmd.ExecuteNonQuery()
            connection.Close()

            MsgBox("Profil er nu oprettet", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End If
End Sub